home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_6 / issue_12 / comment / !Text>Draw / !Run < prev    next >
Encoding:
Text File  |  1993-07-27  |  1.3 KB  |  40 lines
  1. | > !Text>Draw.!Run
  2. |
  3. | Run file for Text>Draw
  4. |
  5. | by Chris Johnson
  6. |
  7. | Check memory allocation for likely memory requirement
  8. |
  9. IconSprites <Obey$Dir>.!Sprites
  10. |
  11. | Find path to file
  12. Set TextDraw$Dir <Obey$Dir>
  13. |
  14. If "<Font$Prefix>"="" Then Error You need to double click on !Fonts before running this application
  15. |
  16. set temp$flag 1
  17. RMEnsure ABCLibrary 0 set temp$flag 0
  18. RMensure ABCLibrary 4.00 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad <Obey$Dir>.modules.ABCLib
  19. RMensure ABCLibrary 4.00 Error You need the ABClibrary ver 4.00 or later installed
  20. |
  21. RMensure FontMenu 0 RMLoad <Obey$Dir>.modules.FontMenu
  22. RMensure FontMenu 0 Error You need the FontMenu module installed
  23. |
  24. set temp$flag 1
  25. RMEnsure CJWimpUtil 0 set temp$flag 0
  26. RMEnsure CJWimpUtil 0.07 if "<temp$flag>" = "1" Then Error 0 Old CJWimpUtil module installed Else RMLoad <Obey$Dir>.modules.cjWimpUtil
  27. RMEnsure CJWimpUtil 0.07 Error You need the CJWimpUtil module installed
  28. |
  29. set temp$flag 1
  30. RMEnsure CJdrawUtil 0 set temp$flag 0
  31. RMEnsure CJdrawUtil 0.04 if "<temp$flag>" = "1" Then Error 0 Old CJdrawUtil installed Else RMLoad <Obey$Dir>.modules.cjdrawUtil
  32. RMEnsure CJdrawUtil 0.04 Error You need the CJdrawUtil module installed
  33. unset temp$flag
  34. |
  35. | Check memory allocation
  36. WimpSlot -min 96K -max 96K
  37. |
  38. | Now start program
  39. Run <TextDraw$Dir>.!RunImage
  40.